install.packages("RMySQL")
install.packages("dbconnect")
install.packages("gWidget")
install.packages("DBI")


library(DBI) # DBI ¬O R Database Interface
library(gWidgets)
library(RMySQL) # MySQL ¦b R ªº INterface
library(dbConnect)


mydb = dbConnect(MySQL(), user='root', password='1234', host='localhost', dbname="news")
dbSendQuery(mydb, "USE news")
dbSendQuery(mydb, "SET NAMES utf8")
dbSendQuery(mydb, "SET character_set_server=utf8")
dbSendQuery(mydb, "SET character_set_database=utf8")
dbGetQuery(mydb, "SHOW VARIABLES LIKE 'character_set_%'")
dbListTables(mydb)
try1 = fetch(dbSendQuery(mydb, "SELECT * FROM newsadmin;"))
try1
dbDisconnect(mydb)

#data = dbGetQuery(mydb, "select * from newscenter")

dbReadTable(con,"fruits")